﻿Public Class MembershipTest
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

	Protected Sub btnLoadUserRoles_Click(sender As Object, e As EventArgs) Handles btnLoadUserRoles.Click
		For Each role As String In Roles.GetRolesForUser(userName.Text.Trim())
			userRoles.Text += String.Format("{0}, ", role)
		Next
	End Sub

	Protected Sub btnLoadRoleUsers_Click(sender As Object, e As EventArgs) Handles btnLoadRoleUsers.Click
		For Each user As String In Roles.GetUsersInRole(roleName.Text.Trim())
			roleUsers.Text += String.Format("{0}, ", user)
		Next
	End Sub
End Class